home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 November / Ahoy_Magazine_87-11_1987_Double_L.d64 / Line Sentry (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  36 lines
  1. 10 rem *** line sentry *** buck childress ***
  2. 20 rem *** p.o. box 13575 salem, or 97309 ***
  3. 30 printchr$(147)"loading and checking data line:":j=52000
  4. 40 forb=0to11:reada
  5. 50 ifb=0thenl=peek(64)*256+peek(63):printchr$(19)tab(31)l:print
  6. 60 ifa<0ora>255then80
  7. 70 pokej+b,a:x=x+a:d=d+1:nextb:reada:ifa=xthen90
  8. 80 print"error in data line:"l:end
  9. 90 x=0:j=j+12:ifd<288then40
  10. 100 print"the data is ok...":print
  11. 110 print"sys 52000 toggles on and off...":end
  12. 120 data104,104,169,60,162,203,236,1,3,208,4,169,1423
  13. 130 data139,162,227,141,0,3,142,1,3,224,227,240,1509
  14. 140 data40,76,79,203,134,251,173,1,2,240,5,166,1370
  15. 150 data251,76,139,227,173,0,2,201,79,208,14,169,1539
  16. 160 data14,160,204,32,30,171,169,117,162,203,76,108,1446
  17. 170 data203,201,81,208,226,169,17,160,204,32,30,171,1702
  18. 180 data169,131,162,164,141,2,3,142,3,3,76,116,1112
  19. 190 data164,32,96,165,134,122,132,123,32,115,0,170,1285
  20. 200 data240,243,162,255,134,58,144,3,76,150,164,32,1661
  21. 210 data107,169,32,121,165,132,11,32,19,166,176,3,1133
  22. 220 data76,237,164,166,214,164,211,134,251,132,252,162,2163
  23. 230 data39,189,0,4,157,57,204,189,0,216,157,97,1309
  24. 240 data204,169,32,157,0,4,202,16,236,169,21,160,1370
  25. 250 data204,32,30,171,165,21,166,20,32,205,189,169,1404
  26. 260 data29,160,204,32,30,171,169,0,133,198,32,228,1386
  27. 270 data255,201,78,240,4,201,89,208,245,32,210,255,2018
  28. 280 data72,160,0,232,208,253,200,208,250,162,39,189,1973
  29. 290 data57,204,157,0,4,189,97,204,157,0,216,202,1487
  30. 300 data16,241,166,251,164,252,24,32,240,255,104,201,1946
  31. 310 data89,240,3,76,123,164,56,76,169,164,79,78,1317
  32. 320 data0,79,70,70,0,19,18,76,73,78,69,32,584
  33. 330 data0,32,69,88,73,83,84,83,32,42,32,67,685
  34. 340 data79,78,84,73,78,85,69,63,32,40,89,47,817
  35. 350 data78,41,146,32,0,0,65,46,72,46,83,46,655
  36.